home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / music / naizou / h_kobaya / trn03 / trn03.mml < prev   
Text File  |  1995-01-07  |  12KB  |  502 lines
  1. /*********************************************************************
  2. / Franz Liszt "Transcendental Etudes 3. Paysage"
  3. / MML by H.Kobayashi
  4. /*********************************************************************
  5. /
  6. #include    "trn03.h"
  7. /
  8. /*********************************************************************
  9. / MML detail (2) main
  10. /*********************************************************************
  11. .next
  12.     t50 $PI o5l8v6    r4                t60 r1r4
  13.         $PI o4l8v6    r1r2
  14.         $PI o6l8v6    r1r2
  15.         $PI o5l8v6    r1r2
  16.         $PI o4l8v6    %d16 '9a %d%0 r     a&g&fr        f&e&d        rd&c
  17.         $PI o4l8v6    %d24 '9f %d%0 r     f&e&dr        d&c&<b-     rb-&a
  18.         $PI o4l8v6    %d48 '9c %d%0 c     r4r  <f2                f4.
  19.         $PI o3l8v6         f2.                        r2r4
  20. .next
  21. #define     A    r1    r'9a4.&
  22.     $A
  23.     $A
  24.     r1r2
  25.     r1r2
  26.     <b4.&    %d24 b-4& %d%0     >c&<ar     >a&g&fr
  27.     a-&g&f    %d48 f&   %d%0    e&g&fr        >f&e&dr
  28.     r4d&         d-&        c&e rf2          f&
  29.     r1r2
  30. .next
  31. #define     A    a4.&    b-4&>c&     d4&f&]#4    e4&g&]#4
  32.     $A
  33.     $A
  34.     r1r2
  35.     r1r2
  36.     f&e&d        rd&c&        <b4.&]#4    b-4&>c&]#4
  37.     d&c&<b-     rb-&a&        a-&g&f&]#4    g4e&]#4
  38.     f4.         f4.         r4d]#4        d-&cr]#4
  39.     r1r2
  40. .next
  41. #define     A    a4.[#4    a4.&[#4     a4a&]#2 b4&>c+&]#2
  42.     $A
  43.     $A
  44.     r1r2
  45.     r1r2
  46.     <ara&[#4    g&f[#4r     erb-&]#2    a&gr]#2
  47.     frf&[#4     e&d[#4r     c+rg&]#2    f&er]#2
  48.     r<a2        [#4[#4a4     a2]#2            a]#2
  49.     r1r2
  50. .next
  51.     d4&e&]#2    f2&]#2        t-4  f&e&[#4    t-2 de.&d16&[#4
  52.     d4&e&]#2    f2&]#2             f&e&[#4        de.&d16&[#4
  53.     r1r2
  54.     r1r2
  55.     f4g&]#2     a2&]#2             a-&g[#4        %d24 f& %d%0 g&f&[#4
  56.     d<dr]#2     r>d&c]#2        <b4. [#4        %d48 b4.%d%0    [#4
  57.     r1]#2]#2                        r[#4             g4.        [#4
  58.     r1r2
  59. .next
  60.     t60 c4                    r2
  61.         c4                    r2
  62.         r2r4
  63.         r2r4
  64.         %d24 e %d%0 ]#4 b-& a&]#4    >d4.&
  65.              r        ]#4 >g& f+&]#4    b-4.&
  66.              c        ]#4 r4    ]#4     r>gf
  67.         r2r4]#4]#4
  68. .next
  69.     r2r4
  70.     r2r4
  71.     r2r4
  72.     r2r4
  73.     d&d-&c&[#4    %d16 '9<b&    %d%0 >c&<b-&
  74.     b-b-&a&[#4    %d24 '9g+&    %d%0 a&g&
  75.     e4.[#4        %d48  e4.    %d%0
  76.     r4r[#4            o3c4.
  77. .next
  78.     v6    %d16 <a %d%0 r        a&g&fr    f&e&d        rd&c
  79.     v6    %d24 f    %d%0 r        f&e&dr    d&c&<b-     rb-&a
  80.     v6    %d48 c    %d%0 <a     r4    rf    r4    r        fr4
  81.     v6         f        r1                            dr4
  82.     v6        a4                ra2.                b-4&>c
  83.     v6        f4                r<f r2        r        >fr4
  84.     v6    r1r2
  85.     v6    r1r2
  86. .next
  87.     <b4&            g&    b-4&>c        <ara&    g&fr
  88.     r4                r    g4&e        frf&    e&dr
  89.     f&d&            <b&>d-&c&<b-    rar     r4f
  90.     r1r2
  91.     %d32 d4& %d%0    f&e4&g&         ar4     <a4.&
  92.          a-r        g&cr4            fr4     <fr4 
  93.     r1r2
  94.     r1r2
  95. .next
  96.     f&e&d    r]#4d&c]#4        <b4&g&        b-4&[#4>c[#4
  97.     d&c&<b- r]#4b-&a]#4     r2r4[#4[#4
  98.     r4r     fr4]#4]#4        f&d&<b-&    >g&[#4e&e&[#4
  99.     r4r     <dr2]#4]#4            r        r4[#4<b-[#4
  100.     a4.&    b-4&]#4>c]#4    d4&<f        e&[#4g&>c&[#4
  101.     r4r     >fr4]#4]#4        a-&g&d        d-4&[#4g&[#4
  102.     r1                            r        r4[#4c[#4
  103.     r1r2
  104. .next
  105. #define     A    f2[#2        r4]#2    f4.&]#2
  106.     <'7ar4[#3[#3    '9a2[#2             r4]#2        '9a4.]#2
  107.     r1r2[#3[#3[#2]#2]#2
  108.     '7f[#3rg-&[#3    f&e-r[#2        e-rg-&]#2        f&e-r]#2
  109.     r[#3a&>e-&[#3    d-&c&<a[#2        >c<a&>e-&]#2    d-&c&<a]#2
  110.     <'7ar4[#3[#3    <    $A
  111.     '7fr4[#3[#3     <<    $A
  112.     r1r2
  113.     r1r2
  114. .next
  115. #define     A    fr4]#2    f2&]#2        f]#3f&    g-4&]#3g&
  116.     '9b-4.]#2        >'9c4.]#2        !+1d-4.&]#3     d-&c&]#3<b-
  117.     r4r]#2            '9a4.]#2        !+1b-4.         r4r
  118.     g-&fr]#2        g-&f&e-]#2        f&e-&]#3d-        d-&e-&]#3e
  119.     >e-&d-&<b-]#2    >e-&d-&c]#2     d-&c&]#3<b-     b-&>c&]#3d-
  120.     $A
  121.     $A
  122.     r1r2
  123.     r1r2
  124. .next
  125.     b-4&a]#2        b-4&a        t-2 b-&a-&g-[#4     t-4 g-12&a-48&g-48&f&e-&
  126.     r1r2
  127.     frf]#2            frf             g-r2    [#4             <a-&
  128.     d-&<a-&>d-&]#2    <b&a-&b         >c&<a-&>c&[#4        <a-&g-g-
  129.     a-4&>d- ]#2     d4&<a-            >e-4&<a-&[#4        >c&<a-&>c
  130.     a-4.    ]#2     a-4.            a-2&    [#4             a-a-
  131.     r1r2
  132.     r1r2
  133. .next
  134.     t60 v6    d-                r4        >f2.                    g-4&a-&
  135.         v6    r                r4         f2.                    g-4&a-&
  136.         v6    f                r4        r        r1
  137.         v6    r1r2
  138.         v6    %d24 d-  %d%0    r>f&    e-&d-r        d-&c&<b-    rb-&a-&
  139.         v6    %d48 >a- %d%0    r>>d-&    c&<b-r        b-&a-&g-    rg-&f&
  140.         v6         <d-         >d-2         d-2                d-4.&
  141.         v6    r1r2
  142. .next
  143. #define     A    b-4&>d-&    c&e-&a-&    fr4]#2    f4.&]#2
  144.     $A
  145.     $A
  146.     r1r2
  147.     r1r2
  148.     g4.         g-4&a-&     frf&]#2     e-&d-r]#2
  149.     e4.         e-rc&        d-rd-&]#2    c&<b-r]#2
  150.     d-d-&<b-&    a&a-r        rd-4&]#2    d-4d-&]#2
  151.     r1r2
  152. .next
  153. #define     A    f4.&]#2 g-4&a-&]#2    b-4&>d-&]#4 c4&e-&]#4
  154.     $A
  155.     $A
  156.     r1r2
  157.     r1r2
  158.     d-&c&<b-]#2 rb-&a-&]#2        grb-&]#4    a-r>c]#4
  159.     b-&a-&g-]#2 rg-&f&]#2        er4  ]#4    g-ra-&]#4
  160.     d-4.    ]#2 d-4. ]#2        rd-4&]#4    e-&d-4]#4
  161.     r1r2
  162. .next
  163. #define     A    fr4 !+1f2&        fr    !+1f4.&[#2
  164.     $A
  165.     $A
  166.     r1r2
  167.     r1r2
  168.     r4f&        e-&d-r        '7crg-&     f&e-r[#2
  169.     a-r>d-&     c&<b-r        '7ar>e-&    d-&cr[#2
  170.     d-!+1f2       '#93f4      !+1f2         f&[#2
  171.     r1r2
  172. .next
  173.     t-2 f4r[#2            <f4.&[#2    t-2 f4r[#2        f4.&[#2
  174.         f4r[#2            <f4.&[#2        f4r[#2        f4.&[#2
  175.         r1r2
  176.         r1r2
  177.         '7d-r>f&[#2     e-&d-&r[#2        crg-&[#2    f&e-4[#2
  178.         <'7b-r>>d-&[#2    c&<b-&r[#2        ar>e-&[#2    d-&c4[#2
  179.         '7f>f2[#2            f4[#2         f2[#2            f&[#2
  180.         r1r2
  181. .next
  182.     t-2 f4.[#2        <f4.&[#2    t-2 f4.[#2        f4&     t30 f12r24
  183.         f4.[#2        <f4.&[#2        f4.[#2        f4&         f12r24
  184.         r1r2
  185.         r1r2
  186.         e-&d-4[#2    d-&c4[#2        c&<b-4[#2    >e-&d-&     d-12r24
  187.         c&<b-4[#2    b-&a4[#2        a&g4[#2     >c&<b-&     b-12r24
  188.         f4f4.[#2        <f[#2        r4>f4.[#2                <f12r24
  189.         r1r2
  190. /---------------------------------------------------------------------
  191. .next
  192.     t60 o5v6l8    $Q    ara     gfr         fed     rd'7c
  193.         o5v6l8    $Q    fcc     c+dr        rc<b-    rb-'7a
  194.         o4v6l8    $Q    aaa     b-b-b-        baf     ff'7f
  195.         o4v6l8    $Q    r4r     grf         g+r4    dr4
  196.         o4v6l8    $Q    frf     rfr         fed     rd'7c
  197.         o4v6l8    $Q    ccc     edd         dc<b-    b-b-'7a
  198.         o3v6l8    $Q    fff     fff         fff     ff'7f
  199.         o3v6l8        r1r2
  200. .next
  201. #define     A    q8    <b4.&    !+1b-4&>c
  202. #define     B    q8    a-&g&f    f&e&g&
  203. #define     C    q8    f&e&d&    d-&c&e&
  204.     $A        $Q    r4a     gfr
  205.     $B        $Q    a>'8cc    c+dr
  206.     $C        $Q    f'8aa    b-b-b-
  207.     r1            r    grf
  208.     $A        $Q    r'8c&f    efd
  209.     $B        $Q    ar>c    rdr
  210.     $C        $Q    f'8ff    '8f4'8f&
  211.     r1r2
  212. .next
  213.     fed     rd'7c        $A
  214.     rc<b-    rb-'7a        $B
  215.     baf     ff'7f        $C
  216.     g+r4    dr1
  217.     fed     rd'7c        $A
  218.     dc<b-    b-b-'7a     $B
  219.     fff     ff'7f        $C
  220.     r1r2
  221. .next
  222. #define     A    <aaa    aa'7aa    aaaa
  223.     $Q    <aaaa    aa '7ab     aaaa
  224.     $Q    ff+gf+    gf+'7eg     f+gf+g
  225.     $Q    r4ed    ed '7c+r    rere
  226.         r1r2
  227.     $Q    r    $A
  228.     $Q    a    $A
  229.     $Q    frr4    r1
  230.         r1r2
  231. .next
  232.     '7aaa    aaa     '7ab-a]#4    aa'7a]#4
  233.     '7f+fg    fgf     '7egf]#4    gf'7g]#4
  234.     '7dre    ded     '7c+r4]#4    er'7e]#4
  235.       r<aa    aaa     '7aaa]#4    aa'7a]#4
  236.     '7a<aa    aaa     '7aab-]#4    b>c'7c+]#4
  237.     '7a<aa    aaa     '7aaa]#4    aa'7a]#4
  238.     r1r2
  239.     r1r2
  240. .next
  241.     q8    arr4        r1
  242.     q8    f&g&g+& a2&     a-&     g&f+&g&f
  243.     q8    d&e-&e& f2        f&        e&d+&e&d
  244.     q8    arr4        >c+&c&<b4    r2
  245.     q8    d2&         e&f&    g2.&
  246.     q8    >dr4    r2        g&        a-&a&b-&b&
  247.         r1r2
  248.         r1r2
  249. .next
  250.     r1r2
  251.     eb-&a&]#4    >d2]#4        !+1d-&    c&[#4<b&>c&<b-&
  252.     cg&f+&]#4    b-2]#4        !+1b-&    a&[#4g+&a&g&
  253.     r2]#4         >g&f&]#4    e4        r2[#4
  254.     g2]#4         b-&b&]#4    >c2.&
  255.     >cr]#4    r2]#4            rc&     d-&[#4d&e-&e
  256.     r1r2
  257.     r1r2
  258. .next
  259.     v7    $Q    r4>a    gfr         ]#2 fed     rd'7c
  260.     v7    $Q    aa>c    c+dr        ]#2 rc<b-    rr4
  261.     v7    $Q    ffa     b-b-'7b-    ]#2 baf     ff'7f+
  262.     v7    $Q    r4r     gr'7f        ]#2 g+r4    dr4
  263.     v7    $Q    crf     rfr         ]#2 fed     rd'7e-
  264.     v7    $Q    f>cc    ed'7d        ]#2 dc<b-    b-b-'7a
  265.     v7    $Q    rff     ff'7f        ]#2 fff     ff'7f
  266.     v7        r1r2
  267. .next
  268.     ]#2 q8    ]<b4b-4[    q7    >!+1d-c]#2    q8    r        r            agfr
  269.     ]#2 q8    a-&g!+1g4            r4]#2        a        a&            >cc+dr
  270.     ]#2 q8    ff    r4        q7    !+1fe]#2    q8    f        f&            ab-b-b-
  271.     ]#2 q8    r4    d-&c    q7    !+1d-c]#2    q8    c        c            rgff
  272.     ]#2 q8    ]d4 <b-4[    q7    !+1b-b-]#2    q8    a %d16    a&    %d%0    >fer4
  273.     ]#2 q8    ]b4 g4[     q7    !+1gg]#2    q8    f %d24    f&    %d%0    >cc+dd
  274.     ]#2 q8    a-&gf&e     q7    !+1d-c]#2    q8    r %d48    c    %d%0    rb-b-r
  275.     ]#2     r2                    r4]#2    q8    r    o2    f&            >ffff
  276. .next
  277.     ]#2 fedr    dc    ]]<b4    b-4[[    q7    >!+2d-c
  278.     ]#2 rc<b-r    r4    a-&g    !+2g4        r4
  279.     ]#2 baff    ff+ ff        r4        q7    !+2fe
  280.     ]#2 g+r4d    r2            d-&c    q7    !+2d-c
  281.     ]#2 fedr    de- ]]d4    <b-4[[    q7    !+2b-b-
  282.     ]#2 dc<b-b- b-a ]]b4    g4[[    q7    !+2gg
  283.     ]#2 ffff    ff    a-&g    f&e     q7    !+2d-c
  284.         r1r2
  285. .next
  286. #define     A    ff    ff'7ff    ffff
  287.     $Q    v7    <'8a>c    cc        cc'7cd        dddd
  288.     $Q    v7    '8fa    gf        gf'7eb-     agag
  289.     $Q    v7    '8cf    ed        ed'7cg        fefe
  290.     $Q    v7    r1r2
  291.     $Q    v7    '8af    $A
  292.     $Q    v7    '8f<f    $A
  293.     $Q    v7    r1r2
  294.     $Q        r1r2
  295. .next
  296.     '7dff    fff     '7fag    ]#2 fgf
  297.     '7f>dc    <b->dc      rcc    ]#2 ccc
  298.     '7db-a    gb-a    '7aag    ]#2 fgf
  299.       rff    fff     '7fr    r2
  300.     '7fff    fff     '7f>fe    ]#2 ded
  301.     '7fff    fff     '7f>>cc ]#2 ccc
  302.     r2r4              rff    ]#2 fff
  303.     r1r2
  304. .next
  305.     t+4 ]#2 '7eb-a    ]#2 gag
  306.         ]#2 '7cdd    ]#2 ddd
  307.         ]#2 '7eb-a    ]#2 gag
  308.         r2r4
  309.         ]#2   rgf    ]#2 efe
  310.         ]#2 '7cdd    ]#2 ddd
  311.         ]#2 '7fff    ]#2 fff
  312.         r2r4
  313. .next
  314.     ]#2 '7f v9        >d        c        <b-     >d        c
  315.     ]#2 '7d v9        f        f        f        f        f
  316.     ]#2 '7f v9        >d        c        <b-     >d        c
  317.           r4v9                r2
  318.           r v9    %d24 b- %d%0 a        g    %d24 b- %d%0 a
  319.     ]#2 '7d v9    %d48 d    %d%0 c        <b- %d48 >d %d%0 c
  320.     ]#2 '7f v9         f         f        f         f         f
  321.           r4v9                r2
  322. .next
  323.     ]#2 '7<a>ff     ]#2 fff
  324.     ]#2 '7f>dc        ]#2 <b->dc
  325.     ]#2 '7<a>b-a    ]#2 gb-a
  326.     ]#2   r>ff        ]#2 fff
  327.     ]#2 '7fff        ]#2 fff
  328.     ]#2   rdc        ]#2 <b->dc
  329.     ]#2 '7ab-a        ]#2 gb-a
  330.     ]#2 '7fff        ]#2 fff
  331. .next
  332.     ]#2 '7f     b-        a        ]#2 g        b-        '7a
  333.     ]#2 <'7a    >d        c        ]#2 <b-     >d        '7c
  334.     ]#2 '7f     b-        a        ]#2 g        b-        '7a
  335.         r2r4
  336.     ]#2 '7f %d24 <b- %d%0 a     ]#2 g    %d24 b- %d%0 '7a
  337.     ]#2   r %d48 <d  %d%0 c     ]#2 <b- %d48 >d %d%0 '7c
  338.     ]#2 '7a      <f       f     ]#2 f         f         '7f
  339.     ]#2 '7f      r          r2
  340. .next
  341. #define     A    a&f&    a&g&f&    c&f&e-& d&<a&>d&c
  342. #define     B    <a&>c&    <a&g&f& a&f&e-& d&f&d&c
  343.     t+4 q8v11    $A
  344.         q8v11    $B
  345.         q8v11    r1r2
  346.         q8v11    r1r2
  347.         q8v11    ar        ]>a4.    a4.     a4.!-1a
  348.         q8v11    cr        ]>e-4.    e-4.    e-4.!-1e-
  349.         q8v11    fr        ]>>c4.    c4.     c4.!-1c
  350.         q8v11    r4        ]f4.    f4.     f4.!-1f
  351. .next
  352.     <    $A
  353.         $B
  354.     r1r2
  355.     r1r2
  356.     r4    <a4.    a4.     a4.[a
  357.     r4    <e-4.    e-4.    e-4.[e-
  358.     r4    <c4.    c4.     c4.[c
  359.     r4    <f4.    f4.     f4.[f
  360. .next
  361. #define     A    [#4 ar [#4        a&g&fr
  362. #define     B    [#4 re-[#4        re-re-
  363. #define     C    [#4<a&>c&[#4    <a&>c&<a&>c
  364.     t-2 <    $A        t-2 $A
  365.             $B            $B
  366.     o4        $C            $C
  367.         r1r2
  368.         r4    [!+1f4.a    r4    [!+1f4.a
  369.         r4    [!+1e-4.e-    r4    [!+1e-4.e-
  370.         r4    [!+1c4.c    r4    [!+1c4.c
  371.         r4    [!+1f4.f    r4    [!+1f4.f
  372. /---------------------------------------------------------------------
  373. .next
  374.     t68 o5v9    r4        a&b4&>c+        r4        d4.&<g+
  375.         o5v9    r4        ee4e            r4        e4.e
  376.         o4v9    a&e     >c+c+4c+        <g+&d    >d4.d
  377.         o3v9    a&>c+    r2                <g+&b    r2
  378.         o4v9    r4        a&g+&f+&e        <!+1e4    >g+&f+&e&d
  379.         o3v9    !+1e4    a&>c+&<a&>c+    <!+1d4    g+&b&g+&b
  380.         o3v9    !+1c+4    r2                <!+1b4    r2
  381.         o2v9    !+1e4    r2                !+1e4    r2
  382. .next
  383.     r4        a-&b-4&>c        r4        d-4.&<g
  384.     r4        e-e-4e-         r4        e-4.e-
  385.     <a-&e-    >cc4c            <g&d-    >d-4.d-
  386.     a-&>c    r2                <g&b-    r2
  387.     r4        a-&g&f&e-        <!+1e-4 >g&f&e-&d-
  388.     !+1e-4    a-&>c&<a-&>c    <!+1d-4 g&b-&g&b-
  389.     >!+1c+4 r2                <!+1b-4 r2
  390.     !+1e-4    r2                !+1e-4    r2
  391. .next
  392.     r4        g-&f4&e-        r4        d4.[#4        d-
  393.     r4        d-d-4&<b-        r4        b4.[#4        r
  394.     <g-&d-    b-b-4&g-        d&<b    >a-4.[#4    a-
  395.     g-&b-    r2                f&a-    >f4.[#4     f
  396.     r4        g-&f&e-&d-        r4        d&d-&<b[#4    r
  397.     !+1d-4    g-&b-&g-&b-     !+1d-4    f&a-&f&[#4    a-
  398.     !+1b-4    r2                !+1b4    r2
  399.     !+1d-4    r2                !+1d-4    r2
  400. .next
  401.     v8    r4        b-&a-4&g-        r4        f4.r
  402.     v8    r4        >d-d-4d-        r4        <b4.r
  403.     v8    g-&d-    b-b-4b-         d&<b    >a-4.r
  404.     v8    <g-&b-    r2                f&a-    r2
  405.     v8    r4        >g-&f&e-&d-     r4        d&d-&<br
  406.     v8    !+1d-4    g-&b-&g-&b-     !+1d-4    f&a-&f&a-
  407.     v8    !+1b-4    r2                !+1b4    r2
  408.     v8    !+1d-4    r2                !+1d-4    r2
  409. .next
  410.     t-2 r2r4                t-2 r2r4
  411.         r1r2
  412.         r1r2
  413.         r1r2
  414.         f!+2'16df    '16d-<ba-    f!+2'16df[#3    '16d-f[#3<b
  415.         r1r2
  416.         r1r2
  417.         r1r2
  418. .next
  419.     t60 v7    r4r     o5c2     r            rd4.&
  420.         v7    r4o4a&    g&fr    gr            b-&a&gr
  421.         v7    r4o4f&    e&dr    er            g&f&er
  422.         v7    ro4cr    r4c     rd            rr4d
  423.         v7    >c2.            <b32&>c..&    c2
  424.         v7    r1r2
  425.         v7    r1r2
  426.             r1r2
  427. .next
  428.     dr            rf4.        f4.     f4.
  429.     ar            >f&e&dr     c&dr    <b-&>cr
  430.     fr            >d&c&<b-r    a&b-&f    g&a&f
  431.     rf            rr4f        r2r4
  432.     <b32&>c..&    c2&         c2.
  433.     r1r2
  434.     r1r2
  435.     r1r2
  436. .next
  437.     %d24 >cr4 %d%0    c2&     cr        d4.&
  438.     %d48 fr4  %d%0    c2&     cr        d4.&
  439.          ar4        r    r1
  440.     r1r2
  441.         r4o4a&        g&fre    rb-&    a&gr
  442.         r4o4f&        e&drc    rg&     f&er
  443.         ro3fr        r4fr    fr        r4f
  444.     r1r2
  445. .next
  446.     d4r     ]#2 f4.         ]#3 f4.     ]#3 f4.
  447.     d4r     ]#2 f4.         ]#3 f4.     ]#3 f4.
  448.     r1r2
  449.     r1r2
  450.     frf     ]#2 e&d4        ]#3 c&d4    ]#3 <b-&>c4&
  451.     drd&    ]#2 c&<b-r        ]#3 a&b-&f    ]#3 g&a&f&
  452.     rfr     ]#2 r4f         ]#3 r2r4    ]#3
  453.     r1r2
  454. .next
  455.     >c4.    '9c4.    '9c4.    '9c4.
  456.     >c4.    '9c4.    '9c4.    '9c4.
  457.     r1r2
  458.     r1r2
  459.     <ara&    g&fr    e&f4    d&e4&
  460.     frf&    e&dr    c&d&<f    b-&>c&<f&
  461.     <rfr    r4f     r2r4
  462.     r1r2
  463. .next
  464. #define     A    f&e&d&e&d&    c&d&c&<b-&>c&<b-&
  465.     f1&f2
  466.     f1&f2
  467.     r1r2
  468.     r1r2
  469.     cr4 q9    <a4.    a4. a4.
  470.     ar4 q9    f4.     f4. f4.
  471.     r    $A
  472.     r1r2
  473. .next
  474.     f2.             f2.
  475.     f2.             f2.
  476.     r1r2
  477.     r1r2
  478.     >'8cr4    <a4.    a4. a4.
  479.     '8fr4    f4.     f4. f4.
  480.     a>    $A
  481.     r1r2
  482. .next
  483.     t-2 f4r2            t-2 rr4     t-2 r4r
  484.         f4r4        r1
  485.     r1r2
  486.     r1r2
  487.     q8    >cr4    <!+1a2         r4]#4        a4.]#4
  488.     q8    fr4     !+1f2         r4]#4        f4.]#4
  489.         a>f&e&    !+1d2         d&c&]#4    <b-4&b]#4
  490.     r1r2
  491. .next
  492.     t-4 r4                r4        t-2 r1
  493.         r1r2
  494.         r1r2
  495.         r1r2
  496.         r            [#4 a4. [#4     %d8  a1 %d%0
  497.         r            [#4 f4. [#4     %d16 f1 %d%0
  498.         {b&>c&d&}    [#4 c4&<a& [#4         f1
  499.         r1r2
  500. /---------------------------------------------------------------------
  501. .end
  502.